home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / borg.arc / TREK.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1985-12-16  |  22.6 KB  |  103 lines
  1. 5  CLS
  2. 10  CHAIN"b:tgraf.bas"
  3. 18  LOCATE 19,2:RANDOMIZE
  4. 20  GOTO 110
  5. 21  GOSUB 11060:LOCATE 5,2:PRINT">>>Stardate";(1+RND(K));"<<<"
  6. 22  K7=INT(10*(K8-K7)+0.5)/10
  7. 23  B=INT(3600*RND(0))/10
  8. 24  S4=INT(1+10*RND(0))
  9. 25  GOSUB 11060:LOCATE 19,2:PRINT "Sulu, captain, starbase";S4;"bearing";B;"degrees."
  10. 26  IF F(1)<=2.5 THEN 30
  11. 27  LOCATE 20,2:PRINT"Course set at warp 3 for it."
  12. 28  GOTO 31
  13. 30  LOCATE 20,2:PRINT"Course plotted and set at warp 1 for it."
  14. 31  LOCATE 21,2:PRINT"Uhura,sir.I have informed starfleet of the outcome."
  15. 32  LOCATE 22,2:PRINT"Spock reporting.";
  16. 33  IF R>10*(1.5*R0) THEN 37
  17. 34  LOCATE 23,2:PRINT"It took us";K7;"stardates to destroy one of Kor's ships."
  18. 36  GOTO 38
  19. 37  LOCATE 23,2:PRINT"We were in contact for";K7;"stardates."
  20. 38  PRINT
  21. 39  GOSUB 11000:LOCATE 7,20:PRINT"Does your crew require leave(1=no,2=yes)";
  22. 40  INPUT K9
  23. 41  IF K9<>1 THEN 102
  24. 42  PRINT
  25. 43  GOSUB 11000:LOCATE 5,3:PRINT"                 *****THIS IS STARFLEET COMMAND*****"
  26. 44  LOCATE 6,3:PRINT"                 YOUR ORDERS ARE TO REPORT DIRECTLY"
  27. 45  LOCATE 7,3:PRINT"                 TO STARBASE";S4;"AND EFFECT REPAIRS"
  28. 46  LOCATE 8,3:PRINT"                 YOU ARE THEN TO PROCEED DIRECTLY TO"
  29. 47  S2=INT(1+63*RND(0)+0.5)
  30. 48  S3=INT(1+63*RND(0)+0.5)
  31. 49  LOCATE 9,3:PRINT"                 SECTOR";S3;"OF QUADRANT";S2","
  32. 50  LOCATE 10,3:PRINT"                  TO INVESTIGATE THE REPORTS OF A"
  33. 51  LOCATE 11,3:PRINT"                 KLINGON SHIP."
  34. 52  LOCATE 12,3:PRINT"                    *****STARFLEET OUT*****"
  35. 56  FOR Q2=1 TO 10
  36. 57  FOR Q3=1 TO 25
  37. 58  NEXT Q3
  38. 59  IF Q2<>Q3 THEN 70
  39. 60  IF RND(0)>0.25 THEN 70
  40. 61  IF R<200 THEN 70
  41. 62  GOSUB 11000:LOCATE 4,2:PRINT"Uhura,sir.An urgent message.Starbase";S4;"has been"
  42. 63  LOCATE 5,2:PRINT"attacked! We are ordered to return immediately, to"
  43. 64  LOCATE 6,2:PRINT"defend it."
  44. 65  K8=K8+0.6:K7=K8
  45. 68  GOTO 1000
  46. 70  IF Q2<>7 THEN 72
  47. 71  GOSUB 11060:LOCATE 19,2:PRINT"Chekov here, keptin.We are entering quadrant";S2;"."
  48. 72  NEXT Q2
  49. 73  M3=1
  50. 101  IF K9=1 THEN 103
  51. 102  GOTO 9995
  52. 103  K8=K8+2.2
  53. 104  LOCATE 19,2:PRINT"Chekov here, keptin. We are now entering sector";S3;"."
  54. 106  K7=K8
  55. 107  GOTO 1000
  56. 110  GOSUB 11060:LOCATE 19,2:PRINT"Enter stardate (0 for instructions)";
  57. 120  INPUT K8
  58. 121  M3=0:K7=K8
  59. 140  IF K8>0 THEN 1000
  60. 150  IF K8=0 THEN 195
  61. 160  LOCATE 20,2:PRINT"What-negative time??? What kind of silly stuff"
  62. 170  LOCATE 21,2:PRINT"are you trying to pull on me? Let's have none"
  63. 180  LOCATE 22,2:PRINT"of that shit; try again."
  64. 190  GOTO 110
  65. 195  LOCATE 2,2
  66. 200  GOSUB 11000:LOCATE 2,2:PRINT"Commander Kirk: your mission is to protect this quadrant"
  67. 210  LOCATE 3,2:PRINT"from Klingon threats.On your sensors you"
  68. 220  LOCATE 4,2:PRINT"will pick one up somewhere in this quadrant, and"
  69. 230  LOCATE 5,2:PRINT"very soon. You can maneuver your ship by"
  70. 240  LOCATE 6,2:PRINT"selecting any heading from 0-360 degrees and warp speed"
  71. 250  LOCATE 7,2:PRINT"from 0-6, with short time bursts of 7,8, or even 9."
  72. 260  LOCATE 8,2:PRINT"Your course and heading will both be reported, since"
  73. 270  LOCATE 9,2:PRINT"at the speeds you are traveling at it takes a little"
  74. 280  LOCATE 10,2:PRINT"while to turn.Your weapons are photon torpedoes (you"
  75. 290  LOCATE 11,2:PRINT"have 10 altogether) and phasors. The torpedoes are"
  76. 300  LOCATE 12,2:PRINT"the most powerful, but must be aimed within 100,000"
  77. 310  LOCATE 13,2:PRINT"kilometers of the klingon to hit him.(HIT SPACEBAR TO CONTINUE)"
  78. 315  CMD$=INKEY$:IF CMD$="" THEN 315
  79. 317  IF CMD$=CHR$(32) THEN GOSUB 11000 ELSE 315 'clear screen area and return
  80. 320  LOCATE 2,2: PRINT"The ship's computers can be used to help aim them, but"
  81. 330  LOCATE 3,2: PRINT"that takes longer than just shooting them yourself."
  82. 340  LOCATE 4,2: PRINT"Phasors have destructive power that falls off with"
  83. 350  LOCATE 5,2: PRINT"distance, and in any case are only half as powerful"
  84. 360  LOCATE 6,2: PRINT"if you fire them to the rear. Your shields will absorb"
  85. 370  LOCATE 7,2: PRINT"the energy in the Klingon's phasors and torpedoes"
  86. 380  LOCATE 8,2: PRINT"if you put enough energy into them, but you must be"
  87. 390  LOCATE 9,2: PRINT"careful with your total use of power. You have a reserve"
  88. 400  LOCATE 10,2: PRINT"of 10 megajoules, and your dilithium crystals produce"
  89. 405  LOCATE 11,2: PRINT"10 MJ per stardate."
  90. 406  LOCATE 12,2: PRINT"(HIT SPACEBAR TO CONTINUE)"
  91. 407  CMD$=INKEY$:IF CMD$="" THEN 407
  92. 408  IF CMD$=CHR$(32) THEN GOSUB 11000  ELSE 407 'clear screen space and return
  93. 409  LOCATE 2,2
  94. 410  PRINT" However it takes energy to run the"
  95. 420  LOCATE 3,2: PRINT"life support systems (2 MJ/stardate),"
  96. 430  LOCATE 4,2: PRINT"to drive the ship (roughly 1.5X the warp speed),"
  97. 440  LOCATE 5,2: PRINT"to fire weapons (~2MJ per shot with either type),"
  98. 450  LOCATE 6,2: PRINT"and for the shields (100% will absorb 1 MJ of destructive"
  99. 460  LOCATE 7,2: PRINT"energy, but about 20% of the shield's power will"
  100. 470  LOCATE 8,2: PRINT"be lost per stardate by radiation into space.)"
  101. 471  LOCATE 8,2: PRINT"You can repair your ship with it, but that costs energy"
  102. 472  LOCATE 9,2: PRINT"(roughly 2.5 MJ each time) and it repairs your"    0
  103.